home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / games / misc / profootball / demo.amos / demo.amosSourceCode < prev    next >
AMOS Source Code  |  1995-09-10  |  7KB  |  251 lines
  1. ' Pro-Football -  How does it work? How do I use it? 
  2. ' (C) Copyright Ali Prior 1995 
  3. ' This program must be distributed as part of a two disk set, the second disk
  4. ' containing the demo version of Pro-Football. 
  5. Break Off 
  6. Dim T$(20)
  7. Global T$(),POOLS
  8. SETUP
  9. GTTYPE
  10. FINALLY
  11. Procedure SETUP
  12. Make Icon Mask 
  13. Screen Open 0,640,256,16,Hires : Cls 0
  14. Load Iff "demo:Graphics/title",1
  15. Double Buffer 
  16. Get Fonts 
  17. For R=1 To 400
  18. D$=Lower$(Font$(R)) : C$=Left$(D$,4) : HG=Val(Mid$(D$,30,4))
  19. If C$="pers"
  20.    If HG=8
  21.       PERSONAL=R : Goto NL
  22.    End If 
  23. End If 
  24. Next R
  25. NL:
  26. Set Font PERSONAL
  27. '
  28. End Proc
  29. Procedure GTTYPE
  30. 'POOLSCHECK
  31. Reserve Zone 3
  32. Set Zone 1,205,211 To 252,241
  33. Set Zone 2,260,216 To 308,245
  34. Set Zone 3,315,211 To 363,241
  35. X:
  36. Z=Zone(X Mouse,Y Mouse)
  37. If Mouse Key=0 Then Goto X
  38. If Z=0 Then Goto X
  39. Cls 0 : Track Loop On : Track Play 3
  40. If Z=1 Then POOLSONLY
  41. If Z=3 Then FODDS
  42. If Z=2 Then POOLS=1 : FODDS
  43.  
  44. End Proc
  45. Procedure FINALLY
  46. Cls 0
  47. T$(2)="That's it! It Really Is That Easy!"
  48. T$(4)="Pro-Football was designed with 'useability' in mind."
  49. T$(5)="Every step of the prediction process has been thoroughly tested to"
  50. T$(6)="ensure that is quick, easy, and above all, accurate."
  51. T$(8)="There is no prediction system in the world that can be guaranteed to be 100%"
  52. T$(9)="accuarate (I wish there was - we'd all be millionaires!), but Pro-Football gives"
  53. T$(10)="you the best possible chance of success - it can look at many more aspects of"
  54. T$(11)="of team form & past results than any human ever could, and what's more, it can do"
  55. T$(12)="it in a fraction of the time."
  56. HELP
  57. Paste Icon 80,150,11
  58. CM[375,170]
  59. Cls 0
  60. T$(2)="Disk 2 contains a demo version of Pro-Football that will let you see"
  61. T$(3)="for yourself just how easy, yet powerful, Pro-Football is."
  62. T$(5)="If you encounter any difficulties whatsoever, or there's something you're"
  63. T$(6)="not sure of, then please don't hesitate to get in touch - I'll be only too glad to help!"
  64. T$(8)="Similarly, if you would like to make any suggestions for future enhancements to"
  65. T$(9)="Pro-Football, then let me know. Pro-Football is an on-going project, and all registered"
  66. T$(10)="users will automatically receive free updates as they become available ..."
  67. T$(12)="If you want to contact me, then write to -"
  68. T$(14)="Ali Prior, 10 Lovell Park Heights, Leeds, LS7 1DP."
  69. T$(16)="All letters will be answered same day."
  70. HELP
  71. Paste Icon 395,134,12
  72. CM[243,201]
  73.  
  74. Load Iff "demo:graphics/finalpic",1
  75. X:
  76. Goto X
  77. End Proc
  78. Procedure FODDS
  79. Paste Icon 275,17,1
  80. T$(1)="Using Pro-Football for fixed odds"
  81. T$(2)="betting is just SO easy!"
  82. T$(4)="First of all, you create what is"
  83.  
  84. T$(5)="called the 'Main List' - this is"
  85. T$(6)="simply a copy of the list of"
  86.  
  87. T$(7)="matches that appears on the"
  88. T$(8)="bookies Long List."
  89. HELP
  90. SCAN[270,84,107]
  91. CM[66,130]
  92. DENTRY[4]
  93. If POOLS=1 Then POOLSCHECK
  94. OTHERS
  95. PREDS:
  96. Cls 0
  97. Paste Icon 30,119,6
  98. T$(1)="Pro-Football now works out it's predictions for all of the matches on your lists"
  99. T$(2)="using the unique 4-Step system to ensure that the predictions are as accurate as"
  100. T$(3)="possible. You can view these predictions in a number of ways - just Draws, just"
  101. T$(4)="Aways, just Homes or all three. You can also ask for more specific predictions,"
  102. T$(5)="for example, a list of the best Aways on the sections list, or a list of the most"
  103. T$(6)="likely draws from the pools list."
  104. T$(7)="The predictions are shown in order of 'likeliness', each prediction being"
  105. T$(8)="rated - for instance, the very strongest predictions have 8 footballs next to them,"
  106. T$(9)="whereas weaker ones may only have 1 or 2."
  107. HELP
  108. CM[423,165]
  109. SHOCK
  110. RESULTS
  111. End Proc
  112. Procedure POOLSCHECK
  113. Cls 0
  114. Paste Icon 10,95,10
  115. T$(1)="As you enter each match, you will be asked whether or not it is also on the pools"
  116. T$(2)="coupon. The majority of matches on the long list will be, but for those that aren't"
  117. T$(3)="all you need to do is click on the 'Pools' box to change the tick to a cross."
  118. T$(5)="When you have entered all of the matches, you will have 2 'lists' in memory -"
  119. T$(6)="the 'Main List' and the 'Pools List'."
  120. HELP
  121. CM[455,140]
  122. End Proc
  123. Procedure OTHERS
  124. Cls 0
  125. Paste Icon 275,17,1
  126. T$(1)="After the main list has been"
  127. T$(2)="created, you can then go on"
  128. T$(3)="to make as many other lists"
  129. T$(4)="(known as sub-lists) as you"
  130. T$(5)="like."
  131.  
  132. T$(7)="For example, each section of"
  133. T$(8)="the coupon Sections List"
  134. T$(9)="would be a seperate sub-list."
  135. HELP
  136. CM[61,130]
  137. End Proc
  138. Procedure POOLSONLY
  139. 'Goto PREDS
  140. Paste Icon 365,17,2
  141. T$(1)="Using Pro-Football to help you with the"
  142. T$(2)="pools is just SO easy!"
  143. T$(4)="First of all, you create what is called"
  144. T$(5)="the 'Main List' - this is simply a copy"
  145. T$(6)="of the list of matches that appears on"
  146. T$(7)="your coupon ...."
  147. HELP
  148. SCAN[350,29,170]
  149. CM[92,110]
  150. DENTRY[3]
  151.  
  152. PREDS:
  153. Cls 0
  154. Paste Icon 30,119,6
  155. T$(1)="Pro-Football now works out it's predictions for all of the matches on your coupon"
  156. T$(2)="using the unique 4-Step system to ensure that the predictions are as accurate as"
  157. T$(3)="possible. You can view these predictions in a number of ways, but as we're only"
  158. T$(4)="dealing with pools betting just now, the one that's of interest is 'Draws'."
  159. T$(6)="Pro-Football displays a list of all of the matches that it feels will result in"
  160. T$(7)="draws. The predictions are shown in order of 'likeliness', each prediction being"
  161. T$(8)="rated - for instance, the very strongest predictions have 8 footballs next to them,"
  162. T$(9)="whereas weaker ones may only have 1 or 2."
  163. HELP
  164. CM[423,165]
  165. SHOCK
  166. RESULTS
  167.  
  168.  
  169.  
  170. End Proc
  171. Procedure RESULTS
  172. Cls 0
  173. Paste Icon 30,119,9
  174. T$(1)="The only thing that needs to be done now (apart from collecting your winnings!)"
  175. T$(2)="is the entering of results."
  176. T$(3)="You are asked for the result of each match on your list - all you do is click on"
  177. T$(4)="correct score!"
  178. T$(6)="Pro-Football then uses these results to update it's 'Intellibet' artificial"
  179. T$(7)="intelligence system - the more you use Pro-Football, the more accurate it becomes!"
  180. HELP
  181. CM[423,165]
  182.  
  183. End Proc
  184. Procedure SHOCK
  185. Cls 0
  186. Paste Icon 280,119,8
  187. T$(1)="Of course we all know that in real life, things don't always go according to plan!"
  188. T$(2)="That's why Pro-Football introduces the revolutionary concept of 'Shock Draws'."
  189. T$(4)="Shock Draws are matches that were predicted to be home or away wins, but could"
  190. T$(5)="possibly end up in a surprise draw. On occasions, this feature can be spookily"
  191. T$(6)="accurate!"
  192. T$(8)="It's always a good idea to include some shock draws in your entry."
  193. HELP
  194. CM[85,160]
  195. End Proc
  196. Procedure DENTRY[T]
  197. Cls 0
  198. If T=3 Then Paste Icon 20,165,3 : X1=0 : X2=0
  199. If T=4 Then Paste Icon 20,178,4 : X1=35 : X2=52 : X3=X2+13
  200. Paste Icon 270,20,5
  201. T$(2)="This is done by clicking on the"
  202. T$(3)="letters on the Pro-Football grid"
  203. T$(4)="to spell out the team names."
  204. T$(6)="Most team names are recognised"
  205. T$(7)="within 2-3 mouse clicks!"
  206. T$(9)="This process is repeated for"
  207.  
  208. T$(10)="each match, and amazingly - it"
  209.  
  210. T$(11)="only takes a few minutes from"
  211. T$(12)="start to finish!"
  212. HELP
  213.  
  214. Bob 1,1+X1,170,1
  215. Wait 20
  216. Bob 1,96+X2,170,1
  217. Wait 20
  218. Bob 1,1+X1,184,1
  219. Wait 20
  220. Bob 1,83+X3,184,1
  221. Wait 20
  222. Bob 1,1+X1,198,1
  223. Wait 20
  224. Bob 1,83+X3,198,1
  225. Wait 20
  226. Bob Off 
  227. CM[398,181]
  228. End Proc
  229. Procedure SCAN[X1,Y1,N]
  230. For R=1 To N
  231. Bob 1,X1,Y1+R,1
  232. Wait 2
  233. Next R
  234.  
  235. Bob Off 
  236. End Proc
  237. Procedure HELP
  238. Ink 4,0
  239. For R=1 To 20
  240. Text 30,20+(R*10),T$(R)
  241. T$(R)=""
  242. Next R
  243. End Proc
  244. Procedure CM[X,Y]
  245. Paste Icon X,Y,7
  246. Clear Key 
  247. X:
  248. I$=Inkey$
  249. If I$<>"" Then Pop Proc
  250. If Mouse Click=0 Then Goto X
  251. End Proc